<%@ Language=VBScript %>
<% option explicit %>
<%
dim ILIB
dim vStr, vCol, vW, vH, Lcurs, I, vChar, cH
vStr = Request.QueryString("s")
if vStr <> "" then
	' Création de l'objet OverPower
	set ILIB = server.createobject("Overpower.ImageLib")
	
	vW = cint(Request.QueryString("w"))
	vH = 25

	ILIB.width = vW
	ILIB.height = vH + 3
	'ILIB.fBox 1,1,ILIB.WIDTH,ILIB.HEIGHT

	'image dégradée de fond
	'ILIB.StretchAntialiased = true
	'ILIB.InsertPicture server.MapPath(".") & "\images\degrade_titre.gif", 1, 110, false, vW, vH
	ILIB.GradientRect 1, 1, vW, vH, "#ffffff", "#f1f1f2"

	
	Lcurs = 1
	
	vCol = Request.QueryString("c")
	if vCol = "" then
		'couleur bleue par défaut
		vCol = "012147"
	end if
	ILIB.FontColor = "#" & vCol
	ILIB.BrushColor = "#FFFFFF"
	ILIB.FontFace = "Georgia"
	ILIB.FontBold = true
	ILIB.FontAntialiasing = true
	
	cH = 0
	for I = 1 to len(vStr)
		vChar = mid(vStr, I, 1)
		if asc(Ucase(vChar)) = Asc(vChar) then
			ILIB.FontSize = 14
			ILIB.Textout Ucase(vChar), LCurs, 1
			if cH = 0 then
				cH = ILIB.GetTextHeight(Ucase(vChar))
			end if
		else
			ILIB.FontSize = 10
			ILIB.Textout Ucase(vChar), LCurs, cH - ILIB.GetTextHeight(Ucase(vChar))
		end if
		LCurs = LCurs + ILIB.GetTextwidth(Ucase(vChar)) - 0.5
	next

	LCurs = LCurs + 3
	
	ILIB.BrushColor = "#f7b639"
	ILIB.Fillrect Lcurs, Ch - 8, Ch - 3, Lcurs + 5
	'ILIB.InsertPicture server.MapPath(".") & "\images\ti_jaune.gif", Lcurs, cH - 9, true, 5, 5

	for I = 0 to vW \ 3
		ILIB.Line I * 3, Ch + 1, (I * 3) + 1, (Ch + 1) + 1
		'ILIB.InsertPicture server.MapPath(".") & "\images\fond_pointille.gif", I * 3, cH + 1, false, 3, 1
	next

	ILIB.PictureBinaryWrite 3, 100, ""
end if
%>